00210		SUBROUTINE SUBR
00234		COMMON /INS/ INST(27),BG(60)
00258		COMMON P(30),INUM,IPAR,CNT(27),BT,PL(48),IREST,DF,DUR(27)
00282	C   INUM=INST#  IPAR=PARAM#  
00306	C   BT=BASIC TIME P1 WHEN SUBROUTINE IS CALLED
00330	C   IF IREST IS <0, THAT NOTE WILL BE A REST.  
00354	C   INST=INST. NAME,  BG=INSTS' BEGIN TIMES.
00378	C   NOTE #S IN SUBROUTINE: (1-84)  C4=37  FS4=43  C5=49  ETC.
00402	C   F1=86  F15=100 (NO F16!)
00426	
00500		IF(CNT(INUM).GT.2)GO TO 1
00600		X=Y
00700		Y=P(2)
00800	C  STORE THE FIRST 2 RHYTHMS
00900		P(2)=0
01000		IREST=-1
01100	C  MAKE THE 1ST 2 NOTES RESTS OF 0 DUR.
01110		K=0
01200		RETURN
01300	
01400	1	Z=P(2)
01450		P(4)=P(4)/3.
01475	C 1/3 AMPLITUDE FOR OVERLAPS
01500		P(2)=X
01600	C GET DUR FROM 2 NOTES BACK
01700		DF=(X+Y+Z)/X-.1
01750	C SET THE DUTY FACTOR TO LENGTHEN THE NOTE.
01800		X=Y
01900		Y=Z
01910		P(5)=86
01920	C  F1 IS ENV. UNLESS NOTE IS LOWER THAN G4, THEN IT'S F2.
01930		IF(P(3).LT.44)P(5)=87
02000		K=K+1
02100		IF(K.EQ.1)INST(INUM)='CLAR2'
02200		IF(K.EQ.2)INST(INUM)='CLAR3'
02300		IF(K.LT.3)RETURN
02350		INST(INUM)='CLAR'
02375		K=0
02387	C RESET COUNTER FOR INST NAME.
02400	C CHANGE INST. NAME WHEN NEEDED
02500		END